Exploratory Data Analysis of Economic Indicators

GDP Change vs Unemployment Rate

There is evidence of a weak correlation between gdp_change and the first 10 lags of unrate.

plot.cross.lags(data, 'gdp_change', 'unrate', 30)

GDP Change vs Non-farm Jobs

There is evidence of a weak correlation between gdp_change and the first 10 lags of nfjobs.

plot.cross.lags(data, 'gdp_change', 'nfjobs', 20)

GDP Change vs 10 Year Treasury Yield

There is evidence of a weak correlation between gdp_change and the first 10 lags of treas10yr.

plot.cross.lags(data, 'gdp_change', 'treas10yr', 20)

GDP Change vs Federal Interest Rate

There is evidence of a weak correlation between gdp_change and the first 10 lags of fedintrate.

plot.cross.lags(data, 'gdp_change', 'fedintrate', 19)

GDP Change vs Change in Personal Income

There is evidence of a weak correlation between gdp_change and the first 4 lags of personincomechg.

plot.cross.lags(data, 'gdp_change', 'personincomechg', 20)

GDP Change vs Change in Corparate Profits

There does not seem to be a correlation between change in GDP and lags of change in corparate profits.

plot.cross.lags(data, 'gdp_change', 'corpprofitchg', 19)

GDP Change vs CPI

plot.cross.lags(data, 'gdp_change', 'cpi', 20)

GDP Change vs population

plot.cross.lags(data, 'gdp_change', 'population', 20)

GDP Change vs crude_wti

plot.cross.lags(data, 'gdp_change', 'crude_wti', 20)

GDP Change vs ppi

plot.cross.lags(data, 'gdp_change', 'ppi', 20)

GDP Change vs gold

plot.cross.lags(data, 'gdp_change', 'gold', 20)

GDP Change vs japan

plot.cross.lags(data, 'gdp_change', 'japan', 20)

GDP Change vs UK

plot.cross.lags(data, 'gdp_change', 'uk', 20)

ggpairs(data %>% select(-c(date, gdp_change)))